home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / comm / mail / AEMail230.lha / aemail230 / arexx / mailto.aem < prev    next >
Text File  |  1999-12-15  |  593b  |  26 lines
  1. /* Arexx AEMail Mailto Compose */
  2. OPTIONS RESULTS
  3. parse arg userid screen a
  4.  
  5. IF ~ SHOW("PORTS","AEMAIL1") THEN
  6.     DO
  7.     openfl = OPEN('envfile', 'ENV:AEMail_Dir', 'Read')
  8.     if (openfl ~= 1) THEN EXIT
  9.     aemdir = READLN('envfile')
  10.     CLOSE('envfile')
  11.     if (aemdir = "") THEN EXIT
  12.     aemfile = aemdir"/AEMail"
  13.     ADDRESS COMMAND "Run >NIL: "aemfile
  14.     ADDRESS COMMAND "WaitForPort AEMAIL1"
  15.     IF ~ SHOW("PORTS","AEMAIL1") THEN EXIT
  16.     END
  17.  
  18. ADDRESS AEMAIL1
  19. SCREENTOFRONT AEMAIL
  20. COMPOSE MAILTO userid
  21. SCREENTOFRONT screen
  22. if (result = 0) then okay1 "Bad Public Screen: "screen
  23.  
  24. exit
  25.  
  26.